COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PICTST"
C00004 ENDMK
C⊗;
BEGIN "PICTST"
REQUIRE "PICNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,II,JJ,X,Y; REAL XP,YP,D,S,C,XPP,YPP,DD,F;
 MAKPIX(200,200,6);
 BEGIN
 INTEGER ARRAY PIX1[1:PICSIZ];
 FOR X←1 STEP 42 UNTIL PICHIG DO
  FOR Y←1 STEP 103 UNTIL PICWID DO
   FOR I←1 STEP 3 UNTIL 11 DO
   FOR J←1 STEP 2 UNTIL 13 DO
    PUTEL(PIX1[1],X+I,Y+J,63);
 PUTPIX(PIX1,"TMP.TMP");
 END;
END;